home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / util / batch / getqual110.lha / GetQual110 / TestIt < prev   
Encoding:
Text File  |  1996-02-27  |  1017 b   |  44 lines
  1. ECHO "Please hold some qualifiers pressed..."
  2. WAIT 2 SEC
  3.  
  4. ECHO "Now getting the pressed qualifiers."
  5. GetQual
  6. IF WARN
  7.   ECHO "The result is..."
  8.   IF $lshift EQ 1
  9.     ECHO "...left <Shift>-key was being pressed"
  10.   EndIF
  11.   IF $rshift EQ 1
  12.     ECHO "...right <Shift>-key was being pressed"
  13.   EndIF
  14.   IF $capslock EQ 1
  15.     ECHO "...<CapsLock> was activated"
  16.   EndIF
  17.   IF $control EQ 1
  18.     ECHO "...<Ctrl>-key was being pressed"
  19.   EndIF
  20.   IF $lalt EQ 1
  21.     ECHO "...left <Alt>-key was being pressed"
  22.   EndIF
  23.   IF $ralt EQ 1
  24.     ECHO "...right <Alt>-key was being pressed"
  25.   EndIF
  26.   IF $lcommand EQ 1
  27.     ECHO "...left <Amiga>-key was being pressed"
  28.   EndIF
  29.   IF $rcommand EQ 1
  30.     ECHO "...right <Amiga>-key was being pressed"
  31.   EndIF
  32.   IF $midbutton EQ 1
  33.     ECHO "...middle mouse-button was being pressed"
  34.   EndIF
  35.   IF $rbutton EQ 1
  36.     ECHO "...right mouse-button was being pressed"
  37.   EndIF
  38.   IF $lbutton EQ 1
  39.     ECHO "...left mouse-button was being pressed"
  40.   EndIF
  41. ELSE
  42.   ECHO "You didn't press any qualifier!"
  43. EndIF
  44.